home *** CD-ROM | disk | FTP | other *** search
- 1 REM**********************************
- 2 REM* APPEND PER C64 *
- 3 REM* BY --F.M. SOFT-- 84100 SALERNO *
- 4 REM* 14.05.85 *
- 5 REM* PER F.I.D.O PZ *
- 6 REM**********************************
- 10 I=49152:T=0
- 20 READ A:IF A=-1 THEN 50
- 40 POKEI,A:I=I+1:T=T+A:GOTO20
- 50 IF T<>9910 THEN PRINT"[147]ERRORE NEI VALORI 'DATA'":END
- 60 PRINT"[147][158]VALORI 'DATA' OK !"
- 65 PRINT"ISTRUZIONI:":PRINT"CARICARE IL PROGRAMMA PRINCIPALE E POI"
- 70 PRINT"BATTERE:":PRINT"[158]SYS49152";CHR$(34);"NOME PRG SECONDARIO";
- 80 PRINTCHR$(34);",PERIFERICA"
- 85 NEW
- 90 :
- 100 DATA 169,000,133,010,032,212,225
- 110 DATA 165,045,056,233,002,170,165
- 120 DATA 046,233,000,168,165,010,032
- 130 DATA 213,255,032,051,165,165,045
- 140 DATA 164,046,056,233,002,133,087
- 150 DATA 152,233,000,133,088,160,000
- 160 DATA 177,087,208,027,200,177,087
- 170 DATA 208,022,165,087,024,105,002
- 180 DATA 133,045,133,047,133,049,165
- 190 DATA 088,105,000,133,046,133,048
- 200 DATA 133,050,096,160,000,177,087
- 210 DATA 133,089,200,177,087,133,088
- 220 DATA 165,089,133,087,076,040,192
- 230 DATA -1
-